


3 FOR B=1T0 2; GOTO @CB)cFb2+4 

4 &CRMcD)=Rf1 -%$ ; 

5 NEXT B; GOSUB 63; RETURN 

6 FOR T=1T0 RM ; NEXT T;GOTO 5 

7 CLEAR RETURN ; NT=0; &C 1 ) = 157; &C 2 )=0; &C 3 )=36; &C 3 )=0; B=1000; F=24000; Z=@C 0 ) 

8 PRINT "16 17 18 13 2B 21 22 23 24 

3 BOX 0, 33 , 160,7 s 2 ; K=( KNC 1 ) + 128 )c30; CX=Kb 18-73; CY=33 ; PRINT "t 
12 @C 0 )=2; R=A+JYC 1 ) ; IF R<1R=1 
15 IF R >ZIF @C fl ) >0Z=R 

18 X=fl-2; FOR B=1T0 3; X=X+1 ; CX=-79; PRINT #0, X, "a “ , #0 5 @C X )cD, “=" , #0 , RM, " " ; NEXT 

B; IF TRC 1 )GOSUB 63 
21 IF &C 23 ) = 16BC=7 ; GOSUB 39 

23 IF JXC 1 ) = 1G0SUB 42 

24 IF &C 21 )=16BC=7; GOSUB 36 
27 IF JXC 1 K0@C R ) = C K+16 )bD+N 
30 IF &C 20 )=16G0SUB 3 

33 &( 0 )=134; BC=236; GOTO 9 

36 FOR B=RTO Z ; @C B )=#C B+l ) ; NEXT B; Z=Z-1 ; RETURN 

33 Z=Z+1 ; FOR B=ZTO R+1STEP - 1 ; @C B )=@C B- 1 ) ; NEXT B; <§C B )=0; RETURN 
42 CX=0; INPUT N; IF K=5U=N 

45 FOR B=17TQ 13 ; &C B )=0; NEXT B;IF K=6W=N 
48 IF JXC 1 > = 1&C K+16 )=N; GOSUB 72; GOSUB 66 
51 IF JXC 1 X0GOSUB 63 
54 IF TRC 1 ) RETURN 
57 IF JYC 1 )GOTO 42 
60 GOTO 45 

63 GOSUB 72; &C@CR)cB)=RN; GOSUB 66; RETURN 
66 FOR B=1T0 200; NEXT B; GOSUB 63; RETURN 
63 &C 21 )=0;&C 22 )=0; RETURN 
72 &C 21 )=U;&C 22 )=W; RETURN 
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fc; RETURN 7 
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3 &C 3 )=0; &C 10 )=213 

4 &C 14 )=255 

5 CLERR ;fl=20180;B=A;C=150 

I 10 X=213; GOSUB C 

20 X=5 140; GOSUB C 

30 X=5140; GOSUB C 
40 X=5 140; GOSUB C 
50 X=5140; GOSUB C 
80 X=- 11398; GOSUB C 
30 X= 103; GOSUB C 
100 X— -11400 ; GOSUB C 
110 X=- 11776; GOSUB 7 
120 X=20182; GOSUB C 
130 CRLLB 

150 %C fl )=X ; fl-fl+2 ; RETURN 
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